home *** CD-ROM | disk | FTP | other *** search
/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / vb30 / disk1 / tccancel.fr_ / tccancel.bin
Text File  |  1993-04-27  |  2KB  |  58 lines
  1. VERSION 2.00
  2. Begin Form CancelFont 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClipControls    =   0   'False
  5.    ControlBox      =   0   'False
  6.    Height          =   2475
  7.    Left            =   1695
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2070
  12.    ScaleWidth      =   3525
  13.    Top             =   2625
  14.    Width           =   3645
  15.    Begin PictureBox picProgress 
  16.       Height          =   375
  17.       Left            =   240
  18.       ScaleHeight     =   345
  19.       ScaleWidth      =   2985
  20.       TabIndex        =   2
  21.       Top             =   840
  22.       Width           =   3015
  23.    End
  24.    Begin CommandButton cmdCancel 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   1080
  28.       TabIndex        =   1
  29.       Top             =   1440
  30.       Width           =   1335
  31.    End
  32.    Begin Label lblCancelMsg 
  33.       Caption         =   "Please wait while TimeCard checks for available fonts..."
  34.       Height          =   495
  35.       Left            =   240
  36.       TabIndex        =   0
  37.       Top             =   240
  38.       Width           =   3135
  39.    End
  40. End
  41. Option Explicit
  42.  
  43. Sub cmdCancel_Click ()
  44.     ' Remove font dialog
  45.     Unload FontDialog
  46.     ' Remove cancel dialog
  47.     Unload CancelFont
  48. End Sub
  49.  
  50. Sub Form_Load ()
  51.     ' Position form in middle of screen
  52.     CancelFont.Left = (Screen.Width - CancelFont.Width) / 2
  53.     CancelFont.Top = (Screen.Height - CancelFont.Height) / 2
  54.     ' Set scale width of progress bar based on # of matches
  55.     picProgress.ScaleWidth = Printer.FontCount * Screen.FontCount
  56. End Sub
  57.  
  58.